local *OUTFH;
open(OUTFH, "+>allscripts.sqf");

for (<*.sqf>,<*.ser>) {
    next if $_ eq "allscripts.sqf";
    local *F;
    open(F, $_);
    print OUTFH "\n/* ###### open file ##### <$_> */\n";
    my $text;
    read(F, $text, -s F);
    print OUTFH $text;
    close(F);
    print OUTFH "\n/* ###### close file ##### <$_> */\n";
};

close(OUTFH);